home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 33 / 033.d81 / border patrol (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  46 lines
  1. 5 sys65418
  2. 10 poke53280,.:poke53281,.
  3. 15 print"[147]please wait ... reading data."
  4. 20 sum=0:fori=49152to49371:readj:pokei,j:sum=sum+j:next
  5. 30 ifsum<>31532thenprint"error in data":end
  6. 35 print"[147]"
  7. 40 input"[159]speed          [157][157][157][157][157][157][157][157][157][157]";n:ifn<0orn>255thenprint"[145][145][145]":goto  40
  8. 42 poke49377,n
  9. 50 input"screen code          [157][157][157][157][157][157][157][157][157][157]";n:ifn<0orn>255thenprint"[145][145]":goto50
  10. 52 poke49378,n
  11. 60 input"number of colors        [157][157][157][157][157][157][157][157]";n::ifn<0orn>255thenprint"[145][145]":goto60
  12. 62 poke49379,n
  13. 70 fori=1ton
  14. 71 print"color code number"i;:input"    [157][157][157][157]";x:ifx<0orx>255thenprint"[145][145]":goto71
  15. 72 poke49379+i,x:next
  16. 80 sys49152
  17. 90 printchr$(147):end:rem continue any basic program from here
  18. 100 data 76,6,192,76,36,192,120,173
  19. 110 data 20,3,141,220,192,173,21,3
  20. 120 data 141,221,192,169,51,141,20,3
  21. 130 data 169,192,141,21,3,169,1,141
  22. 140 data 222,192,88,96,120,173,220,192
  23. 150 data 141,20,3,173,221,192,141,21
  24. 160 data 3,88,96,206,222,192,208,88
  25. 170 data 173,225,192,141,222,192,160,38
  26. 180 data 173,226,192,153,0,4,32,188
  27. 190 data 192,173,224,192,153,0,216,136
  28. 200 data 16,238,169,39,141,153,192,141
  29. 210 data 162,192,169,4,141,154,192,169
  30. 220 data 216,141,163,192,32,147,192,169
  31. 230 data 40,141,153,192,141,162,192,169
  32. 240 data 4,141,154,192,169,216,141,163
  33. 250 data 192,32,147,192,160,39,173,226
  34. 260 data 192,153,192,7,32,188,192,173
  35. 270 data 224,192,153,192,219,136,16,238
  36. 280 data 108,220,192,162,23,173,226,192
  37. 290 data 141,39,4,32,188,192,173,224
  38. 300 data 192,141,39,216,173,153,192,24
  39. 310 data 105,40,141,153,192,141,162,192
  40. 320 data 144,6,238,154,192,238,163,192
  41. 330 data 202,16,218,96,152,72,138,72
  42. 340 data 206,223,192,16,9,173,227,192
  43. 350 data 141,223,192,206,223,192,172,223
  44. 360 data 192,185,228,192,141,224,192,104
  45. 370 data 170,104,168,96
  46.